home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chtsht / demo5.dht < prev    next >
Encoding:
Text File  |  1995-09-07  |  3.8 KB  |  99 lines
  1. <IMG "FTLLOGO.BMP">
  2.  
  3. Welcome to the FTL 2.1 Demo!
  4.  
  5. This file explains the features of the FTL 2.1 Hypertext/ Hypermedia components
  6.  
  7. <IMG "DELLOGO.BMP">   <IMG "S_CIUPKC.BMP">
  8.  
  9. for Borland Delphi from C.I.U.P.K.C. Software.
  10.  
  11. <IMG "HLINE.BMP">
  12.  
  13. TRegularExpressionParser Component
  14.  
  15. This component handles the dirty work of parsing strings of text and
  16. finding and returning matches to regular expressions. It has the
  17. following interface declaration:
  18.  
  19.   TRegularExpressionParser = class( TComponent )
  20.   private
  21.     { Private declarations }
  22.     FOnAssertGREPMatch : TGREPEvent;
  23.   public
  24.     { Public declarations }
  25.     TheREPFile : TREPFile;
  26.     TotalREPRecords : Integer;
  27.     ActiveREPArray : TARArray;
  28.     TotalActiveREPRecords : Integer;
  29.     TheREPArray : TREPArray;
  30.     CurrentActiveREPRecord : Integer;
  31.     LeadString : String;
  32.     MatchedString : String;
  33.     AfterString : String;
  34.     RecordMatched : Integer;
  35.     FileOpen ,
  36.     FileLoaded : Boolean;
  37.     TheREPFileName : TFilename;
  38.     TheREPArrayname : TFIleName;
  39.     ActiveREPPosition : Integer;
  40.     GlobalBOLN,
  41.     GlobalEOLN : Boolean;
  42.     TotalREPHits : Integer;
  43.     TheHits : array[1..100] of integer;
  44.     procedure MakeCurrentGREPRep( TheRecord , TheToken : Integer );
  45.     procedure CreateFullGrepRep( TheRecord, TheToken : Integer;
  46.      var TheRep : String; var StartSel, EndSel : Integer );
  47.     function CIUPKC_158 : String;
  48.     procedure Clear;
  49.     constructor Create( AOwner : TComponent ); override;
  50.     destructor Destroy; override;
  51.     function OpenREPFile( NewFile : Boolean ) : Boolean;
  52.     function ReadREPData : Boolean;
  53.     procedure CloseREPFile;
  54.     procedure SetTheREPFileName( Value : TfileName );
  55.     function SetREPFile : Boolean;
  56.     procedure SetActiveREPArray( Value1 : TARArray; Value2 : Integer );
  57.     procedure GetActiveREPArray( var Value1 : TARArray; var Value2 : Integer );
  58.     procedure InterActivelyCreateREPData;
  59.     procedure InterActivelySetREPArrayData( ViewOK : Boolean );
  60.     function GREPAllREPs( TargetString : String ) : boolean;
  61.     function GREPCurrentREP( TargetString : String ) : boolean;
  62.     function GREPNextREP( TargetString : String ) : boolean;
  63.     function GetLeadString : String;
  64.     procedure ParseTheBlastedGREPString( TheRecord : Integer;
  65.                TheString : String );
  66.     function GetMatchedString( StripDelimiters : Boolean ) : String;
  67.     function GetAfterString : String;
  68.     function GetMatchedRecord : Integer;
  69.     function AssertGREPMatch( LeadString , MiddleString , LastString : String;
  70.                                RecordHit : Integer ) : Boolean;
  71.     procedure SetCurrentActiveREPRecord( Value : Integer );
  72.     function GetCurrentActiveREPRecord : Integer;
  73.     function GREPTheString(     TargetString : String;
  74.                                 TheGREPRec   : PTREPRecord;
  75.                             var LeadingText ,
  76.                                 GREPedText  ,
  77.                                 TrailingText   : String     ) : Boolean;
  78.     function GetActiveExpressions : TARArrayString;
  79.     procedure SetActiveExpressions( Value : TARArrayString );
  80.     function GetRegularExpressions : TREXPString;
  81.     procedure SetRegularexpressions( Value : TREXPString );
  82.   published
  83.     { For the object inspector }
  84.     property RegularExpressionFile : TFileName read TheREPFIlename
  85.               write SetTheREPFilename;
  86.     property TheActiveExpressions : TARArrayString read GetActiveExpressions
  87.               write SetActiveExpressions;
  88.     property TheRegularExpressions : TREXPString read GetRegularExpressions
  89.               write SetRegularExpressions;
  90.     property OnAssertGREPMatch : TGREPEvent read FOnAssertGREPMatch
  91.               write FOnAssertGREPMatch;
  92.   end;
  93.  
  94.  
  95. <IMG "WAVELINE.BMP">
  96.  
  97. <A HREF="DEMO1.DHT">Click here</A> to return to the main demo file.
  98.  
  99.